E (SETQ $PRINT-BUDGET-MONTHLY nil) READ (SALARY IN DSK (PRO HE)) READ (ARPA81 IN DSK (PRO HE)) BUDGET first-year (ARP81A OUT DSK (PRO HE)) BUDGET second-year (ARP81B OUT DSK (PRO HE))